home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / SecalDemo / Inc / libcalls / iffparse.inc < prev    next >
Encoding:
Text File  |  1997-06-11  |  6.5 KB  |  280 lines
  1. pattern AllocIFF is
  2.     push a6;
  3.     a6:=IFFParseBase; jsr [a6-30];
  4.     pop a6;
  5. endp;                                                            # ALLOCIFF
  6.  
  7. pattern OpenIFF(_iff,_rwMode) is
  8.     push a6;
  9.     safe a0:=_iff; d0.l:=_rwMode;;
  10.     a6:=IFFParseBase; jsr [a6-36];
  11.     pop a6;
  12. endp;                                                            # OPENIFF
  13.  
  14. pattern ParseIFF(_iff,_control) is
  15.     push a6;
  16.     safe a0:=_iff; d0.l:=_control;;
  17.     a6:=IFFParseBase; jsr [a6-42];
  18.     pop a6;
  19. endp;                                                            # PARSEIFF
  20.  
  21. pattern CloseIFF(_iff) is
  22.     push a6;
  23.     a0:=_iff;
  24.     a6:=IFFParseBase; jsr [a6-48];
  25.     pop a6;
  26. endp;                                                            # CLOSEIFF
  27.  
  28. pattern FreeIFF(_iff) is
  29.     push a6;
  30.     a0:=_iff;
  31.     a6:=IFFParseBase; jsr [a6-54];
  32.     pop a6;
  33. endp;                                                            # FREEIFF
  34.  
  35. pattern ReadChunkBytes(_iff,_buf,_numBytes) is
  36.     push a6;
  37.     safe a0:=_iff; a1:=_buf; d0.l:=_numBytes;;
  38.     a6:=IFFParseBase; jsr [a6-60];
  39.     pop a6;
  40. endp;                                                            # READCHUNKBYTES
  41.  
  42. pattern WriteChunkBytes(_iff,_buf,_numBytes) is
  43.     push a6;
  44.     safe a0:=_iff; a1:=_buf; d0.l:=_numBytes;;
  45.     a6:=IFFParseBase; jsr [a6-66];
  46.     pop a6;
  47. endp;                                                            # WRITECHUNKBYTES
  48.  
  49. pattern ReadChunkRecords(_iff,_buf,_bytesPerRecord,_numRecords) is
  50.     push a6;
  51.     safe a0:=_iff; a1:=_buf; d0.l:=_bytesPerRecord; d1.l:=_numRecords;;
  52.     a6:=IFFParseBase; jsr [a6-72];
  53.     pop a6;
  54. endp;                                                            # READCHUNKRECORDS
  55.  
  56. pattern WriteChunkRecords(_iff,_buf,_bytesPerRecord,_numRecords) is
  57.     push a6;
  58.     safe a0:=_iff; a1:=_buf; d0.l:=_bytesPerRecord; d1.l:=_numRecords;;
  59.     a6:=IFFParseBase; jsr [a6-78];
  60.     pop a6;
  61. endp;                                                            # WRITECHUNKRECORDS
  62.  
  63. pattern PushChunk(_iff,_type,_id,_size) is
  64.     push d2\a6;
  65.     safe a0:=_iff; d0.l:=_type; d1.l:=_id; d2.l:=_size;;
  66.     a6:=IFFParseBase; jsr [a6-84];
  67.     pop d2\a6;
  68. endp;                                                            # PUSHCHUNK
  69.  
  70. pattern PopChunk(_iff) is
  71.     push a6;
  72.     a0:=_iff;
  73.     a6:=IFFParseBase; jsr [a6-90];
  74.     pop a6;
  75. endp;                                                            # POPCHUNK
  76.  
  77. pattern EntryHandler(_iff,_type,_id,_position,_handler,_object) is
  78.     push d2\a2\a6;
  79.     safe a0:=_iff; d0.l:=_type; d1.l:=_id; d2.l:=_position; a1:=_handler; a2:=_object;;
  80.     a6:=IFFParseBase; jsr [a6-102];
  81.     pop d2\a2\a6;
  82. endp;                                                            # ENTRYHANDLER
  83.  
  84. pattern ExitHandler(_iff,_type,_id,_position,_handler,_object) is
  85.     push d2\a2\a6;
  86.     safe a0:=_iff; d0.l:=_type; d1.l:=_id; d2.l:=_position; a1:=_handler; a2:=_object;;
  87.     a6:=IFFParseBase; jsr [a6-108];
  88.     pop d2\a2\a6;
  89. endp;                                                            # EXITHANDLER
  90.  
  91. pattern PropChunk(_iff,_type,_id) is
  92.     push a6;
  93.     safe a0:=_iff; d0.l:=_type; d1.l:=_id;;
  94.     a6:=IFFParseBase; jsr [a6-114];
  95.     pop a6;
  96. endp;                                                            # PROPCHUNK
  97.  
  98. pattern PropChunks(_iff,_propArray,_numPairs) is
  99.     push a6;
  100.     safe a0:=_iff; a1:=_propArray; d0.l:=_numPairs;;
  101.     a6:=IFFParseBase; jsr [a6-120];
  102.     pop a6;
  103. endp;                                                            # PROPCHUNKS
  104.  
  105. pattern StopChunk(_iff,_type,_id) is
  106.     push a6;
  107.     safe a0:=_iff; d0.l:=_type; d1.l:=_id;;
  108.     a6:=IFFParseBase; jsr [a6-126];
  109.     pop a6;
  110. endp;                                                            # STOPCHUNK
  111.  
  112. pattern StopChunks(_iff,_propArray,_numPairs) is
  113.     push a6;
  114.     safe a0:=_iff; a1:=_propArray; d0.l:=_numPairs;;
  115.     a6:=IFFParseBase; jsr [a6-132];
  116.     pop a6;
  117. endp;                                                            # STOPCHUNKS
  118.  
  119. pattern CollectionChunk(_iff,_type,_id) is
  120.     push a6;
  121.     safe a0:=_iff; d0.l:=_type; d1.l:=_id;;
  122.     a6:=IFFParseBase; jsr [a6-138];
  123.     pop a6;
  124. endp;                                                            # COLLECTIONCHUNK
  125.  
  126. pattern CollectionChunks(_iff,_propArray,_numPairs) is
  127.     push a6;
  128.     safe a0:=_iff; a1:=_propArray; d0.l:=_numPairs;;
  129.     a6:=IFFParseBase; jsr [a6-144];
  130.     pop a6;
  131. endp;                                                            # COLLECTIONCHUNKS
  132.  
  133. pattern StopOnExit(_iff,_type,_id) is
  134.     push a6;
  135.     safe a0:=_iff; d0.l:=_type; d1.l:=_id;;
  136.     a6:=IFFParseBase; jsr [a6-150];
  137.     pop a6;
  138. endp;                                                            # STOPONEXIT
  139.  
  140. pattern FindProp(_iff,_type,_id) is
  141.     push a6;
  142.     safe a0:=_iff; d0.l:=_type; d1.l:=_id;;
  143.     a6:=IFFParseBase; jsr [a6-156];
  144.     pop a6;
  145. endp;                                                            # FINDPROP
  146.  
  147. pattern FindCollection(_iff,_type,_id) is
  148.     push a6;
  149.     safe a0:=_iff; d0.l:=_type; d1.l:=_id;;
  150.     a6:=IFFParseBase; jsr [a6-162];
  151.     pop a6;
  152. endp;                                                            # FINDCOLLECTION
  153.  
  154. pattern FindPropContext(_iff) is
  155.     push a6;
  156.     a0:=_iff;
  157.     a6:=IFFParseBase; jsr [a6-168];
  158.     pop a6;
  159. endp;                                                            # FINDPROPCONTEXT
  160.  
  161. pattern CurrentChunk(_iff) is
  162.     push a6;
  163.     a0:=_iff;
  164.     a6:=IFFParseBase; jsr [a6-174];
  165.     pop a6;
  166. endp;                                                            # CURRENTCHUNK
  167.  
  168. pattern ParentChunk(_contextNode) is
  169.     push a6;
  170.     a0:=_contextNode;
  171.     a6:=IFFParseBase; jsr [a6-180];
  172.     pop a6;
  173. endp;                                                            # PARENTCHUNK
  174.  
  175. pattern AllocLocalItem(_type,_id,_ident,_dataSize) is
  176.     push d2\d3\a6;
  177.     safe d0.l:=_type; d1.l:=_id; d2.l:=_ident; d3.l:=_dataSize;;
  178.     a6:=IFFParseBase; jsr [a6-186];
  179.     pop d2\d3\a6;
  180. endp;                                                            # ALLOCLOCALITEM
  181.  
  182. pattern LocalItemData(_localItem) is
  183.     push a6;
  184.     a0:=_localItem;
  185.     a6:=IFFParseBase; jsr [a6-192];
  186.     pop a6;
  187. endp;                                                            # LOCALITEMDATA
  188.  
  189. pattern SetLocalItemPurge(_localItem,_purgeHook) is
  190.     push a6;
  191.     safe a0:=_localItem; a1:=_purgeHook;;
  192.     a6:=IFFParseBase; jsr [a6-198];
  193.     pop a6;
  194. endp;                                                            # SETLOCALITEMPURGE
  195.  
  196. pattern FreeLocalItem(_localItem) is
  197.     push a6;
  198.     a0:=_localItem;
  199.     a6:=IFFParseBase; jsr [a6-204];
  200.     pop a6;
  201. endp;                                                            # FREELOCALITEM
  202.  
  203. pattern FindLocalItem(_iff,_type,_id,_ident) is
  204.     push d2\a6;
  205.     safe a0:=_iff; d0.l:=_type; d1.l:=_id; d2.l:=_ident;;
  206.     a6:=IFFParseBase; jsr [a6-210];
  207.     pop d2\a6;
  208. endp;                                                            # FINDLOCALITEM
  209.  
  210. pattern StoreLocalItem(_iff,_localItem,_position) is
  211.     push a6;
  212.     safe a0:=_iff; a1:=_localItem; d0.l:=_position;;
  213.     a6:=IFFParseBase; jsr [a6-216];
  214.     pop a6;
  215. endp;                                                            # STORELOCALITEM
  216.  
  217. pattern StoreItemInContext(_iff,_localItem,_contextNode) is
  218.     push a2\a6;
  219.     safe a0:=_iff; a1:=_localItem; a2:=_contextNode;;
  220.     a6:=IFFParseBase; jsr [a6-222];
  221.     pop a2\a6;
  222. endp;                                                            # STOREITEMINCONTEXT
  223.  
  224. pattern InitIFF(_iff,_flags,_streamHook) is
  225.     push a6;
  226.     safe a0:=_iff; d0.l:=_flags; a1:=_streamHook;;
  227.     a6:=IFFParseBase; jsr [a6-228];
  228.     pop a6;
  229. endp;                                                            # INITIFF
  230.  
  231. pattern InitIFFasDOS(_iff) is
  232.     push a6;
  233.     a0:=_iff;
  234.     a6:=IFFParseBase; jsr [a6-234];
  235.     pop a6;
  236. endp;                                                            # INITIFFASDOS
  237.  
  238. pattern InitIFFasClip(_iff) is
  239.     push a6;
  240.     a0:=_iff;
  241.     a6:=IFFParseBase; jsr [a6-240];
  242.     pop a6;
  243. endp;                                                            # INITIFFASCLIP
  244.  
  245. pattern OpenClipboard(_unitNumber) is
  246.     push a6;
  247.     d0.l:=_unitNumber;
  248.     a6:=IFFParseBase; jsr [a6-246];
  249.     pop a6;
  250. endp;                                                            # OPENCLIPBOARD
  251.  
  252. pattern CloseClipboard(_clipHandle) is
  253.     push a6;
  254.     a0:=_clipHandle;
  255.     a6:=IFFParseBase; jsr [a6-252];
  256.     pop a6;
  257. endp;                                                            # CLOSECLIPBOARD
  258.  
  259. pattern GoodID(_id) is
  260.     push a6;
  261.     d0.l:=_id;
  262.     a6:=IFFParseBase; jsr [a6-258];
  263.     pop a6;
  264. endp;                                                            # GOODID
  265.  
  266. pattern GoodType(_type) is
  267.     push a6;
  268.     d0.l:=_type;
  269.     a6:=IFFParseBase; jsr [a6-264];
  270.     pop a6;
  271. endp;                                                            # GOODTYPE
  272.  
  273. pattern IDtoStr(_id,_buf) is
  274.     push a6;
  275.     safe d0.l:=_id; a0:=_buf;;
  276.     a6:=IFFParseBase; jsr [a6-270];
  277.     pop a6;
  278. endp;                                                            # IDTOSTR
  279.  
  280.